unit clsResumoPagamentosRecebimentos;

interface

type
  TResumoPagamentosRecebimentos = class(TObject)
  private
    DataIni:TDateTime;
    DataFin:TDateTime;
    TiposDeDocumentos:string;
    LocaisExcluidos:String;
    Empresa:String;
    DataDeConsulta:String;

  public
    constructor Create(DataIni, DataFin:TDateTime; TiposDeDocumentos, LocaisExcluidos, Empresa, DataDeConsulta:String);
    function GetDataIni:TDateTime;
    procedure SetDataIni(DataIni:TDateTime);
    function GetDataFin:TDateTime;
    procedure SetDataFin(DataFin:TDateTime);
    function GetTiposDeDocumentos:String;
    procedure SetTiposDeDocumentos(TiposDeDocumentos:String);
    function GetLocaisExcluidos:String;
    procedure SetLocaisExcluidos(LocaisExcluidos:String);
    function GetEmpresa:String;
    procedure SetEmpresa(Empresa:String);
    function GetDataDeConsulta:String;
    procedure SetDataDeConsulta(DataDeConsulta:String);

    procedure ImprimirResumo; virtual; abstract;
    procedure ImprimeBloco(tipoDeDocumento:string); virtual; abstract;

  end;

const
  RESUMO_RECEBIMENTO = 0;
  RESUMO_PAGAMENTO = 1;

implementation

uses
  biblio_imp;

{ TResumoPagamentosRecebimentos }

constructor TResumoPagamentosRecebimentos.Create(DataIni, DataFin: TDateTime; TiposDeDocumentos, LocaisExcluidos, Empresa, DataDeConsulta: String);
begin
  SetDataIni(DataIni);
  SetDataFin(DataFin);
  SetTiposDeDocumentos(TiposDeDocumentos);
  SetLocaisExcluidos(LocaisExcluidos);
  SetEmpresa(Empresa);
  SetDataDeConsulta(DataDeConsulta);
end;

function TResumoPagamentosRecebimentos.GetDataIni:TDateTime;
begin
  Result := Self.DataIni;
end;

procedure TResumoPagamentosRecebimentos.SetDataIni(DataIni:TDateTime);
begin
  Self.DataIni := DataIni;
end;

function TResumoPagamentosRecebimentos.GetDataFin:TDateTime;
begin
  Result := Self.DataFin;
end;

procedure TResumoPagamentosRecebimentos.SetDataFin(DataFin:TDateTime);
begin
  Self.DataFin := DataFin;
end;

function TResumoPagamentosRecebimentos.GetTiposDeDocumentos:String;
begin
  Result := Self.TiposDeDocumentos;
end;

procedure TResumoPagamentosRecebimentos.SetTiposDeDocumentos(TiposDeDocumentos:String);
begin
  Self.TiposDeDocumentos := TiposDeDocumentos;
end;

function TResumoPagamentosRecebimentos.GetLocaisExcluidos:String;
begin
  Result := Self.LocaisExcluidos;
end;

procedure TResumoPagamentosRecebimentos.SetLocaisExcluidos(LocaisExcluidos:String);
begin
  Self.LocaisExcluidos := LocaisExcluidos;
end;

function TResumoPagamentosRecebimentos.GetEmpresa:String;
begin
  Result := Self.Empresa;
end;

procedure TResumoPagamentosRecebimentos.SetEmpresa(Empresa:String);
begin
  Self.Empresa := Empresa;
end;

function TResumoPagamentosRecebimentos.GetDataDeConsulta: String;
begin
  Result := Self.DataDeConsulta;
end;

procedure TResumoPagamentosRecebimentos.SetDataDeConsulta(DataDeConsulta: String);
begin
  Self.DataDeConsulta := DataDeConsulta;
end;

end.
